<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()
%>

<html>
<head>
<title></title>
<link href=../style/<%=session("tslt_stylefolder")%>/admin.css rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE=javascript>
<!--
function indexshowlist_onchange(){
     if(isNaN(formshowlist.indexshowlist.value))
     {
	     alert("֣");
         formshowlist.indexshowlist.value="";
         formshowlist.indexshowlist.focus();
         return false;
	 }
	 else if(formshowlist.indexshowlist.value<0)
	 {
         alert("Ϊ");
         formshowlist.indexshowlist.value="";
         formshowlist.indexshowlist.focus();
         return false;
     }           
}

function showlist_onchange(){
     if(isNaN(formshowlist.showlist.value))
     {
	     alert("֣");
         formshowlist.showlist.value="";
         formshowlist.showlist.focus();
         return false;
	 }
	 else if(formshowlist.showlist.value<0)
	 {
         alert("Ϊ");
         formshowlist.showlist.value="";
         formshowlist.showlist.focus();
         return false;
     }          
}

function formUPS(){
     if(isNaN(formPhotoSize.userPhotoSize.value))
     {
	     alert("֣");
         formPhotoSize.userPhotoSize.value="";
         formPhotoSize.userPhotoSize.focus();
         return false;
	 }
	 else{
         formPhotoSize.submit();
     }
}

function tempTop_onchange(){
     if(isNaN(formTempTop.text_tempTop.value))
     {
	     alert("֣");
         formTempTop.text_tempTop.value="";
         formTempTop.text_tempTop.focus();
         return false;
	 }
	 else if(formTempTop.text_tempTop.value<0)
	 {
         alert("Ϊ");
         formTempTop.text_tempTop.value="";
         formTempTop.text_tempTop.focus();
         return false;
     }           
}
//-->
</SCRIPT>
</head>
<body bgcolor=#aaaac4>
<br>
<CENTER>
<table><tr><td class="font2">ơˡɾ</td></tr></table>
<br>
<table border=0 width=600 bgcolor=#dedfde cellpadding="15" cellspacing="15">
<tr>
<td>
<table border=1 width=100% bgcolor=#ffffff align="center" cellpadding="5" cellspacing="0" bordercolordark="#CCCCCC" bordercolorlight="#000000">
     <tr>
            <form name=formshowlist action=rfd_handle.asp method=post>
            <input type="hidden" name="isshowlist" value="ok">
            <td width=50%>                    
                    <input type=text size=3 name="indexshowlist" value=<%=IndexListCount()%> onchange="return indexshowlist_onchange()" onmouseup="alert('ҳҪʾ()');">
                    <input type=submit value=ҳ>
            </td>
            <td>
                    <input type=text size=3 name="showlist" value=<%=ListCount()%> onchange="return showlist_onchange()" onmouseup="alert('ҳҪʾ()');">
                    <input type=submit value=ҳ>
            </td>
            </form>
    </tr>
</table>
<br>
<table border=1 width=100% bgcolor=#ffffff align="center" cellpadding="5" cellspacing="0" bordercolordark="#CCCCCC" bordercolorlight="#000000">
    <tr>
           <form name=formInterval action=rfd_handle.asp method=post>
           <input type="hidden" name="isInterval" value="ok">
           <td align=left width=50%>                 
                 <input type=text size=3 name="MySI" value=<%=MySI()%>><font color="#000000"><b></b></font>&nbsp;<input type=submit value="עʱ" style="width:194">
           </td>
           </form>
           <form name="formPhotoSize" action="rfd_handle.asp" method=post>
           <input type="hidden" name="isPhotoSize" value="ok">
           <td align=left width=50%>
                 <input type=text size=3 name="userPhotoSize" value=<%=UPSize()%>><font color="#000000"><b>K</b></font>&nbsp;<input type=button onclick="formUPS()" value=ûϴƬļֵ style="width:190">
           </td>
           </form>
    </tr>
</table>


<br>
<table border=1 width=100% bgcolor=#ffffff align="center" cellpadding="5" cellspacing="0" bordercolordark="#CCCCCC" bordercolorlight="#000000">
    <tr>
            <form name=formTempTop action=rfd_handle.asp method=post>
            <input type="hidden" name="isTempTop" value="ok">
            <td width=50%>
			        <span style="font-size:15">
                    <%If chkYesNo Then%>
                         <input type=checkbox size=3 name="chk_tempTop" checked style="background-color:red;">
					<%Else%>
			             <input type=checkbox size=3 name="chk_tempTop"> 
                    <%End If%>	
					ûѵʱ̶죩
                    ÿʾ <input type=text size=3 name="text_tempTop" value="<%=TTCount()%>" onchange="return tempTop_onchange()"> ʱ̶ 
                    <br>
					<center>
                    <input type=submit value=ȷ>
					</center>
					</span>
            </td>
            </form>
    </tr>
</table>
<br>
<table border=1 width=100% bgcolor=#ffffff align="center" cellpadding="5" cellspacing="0" bordercolordark="#CCCCCC" bordercolorlight="#000000">
    <tr>
           <form name=formsubjectfiltrate action=rfd_handle.asp method=post>
           <input type="hidden" name="isfiltrate" value="ok">
           <td align=left width=50%>
                 <input type=text size=75 maxlength="255" name="subjectfiltrate" value="<%=MYChr()%>" style="background-color:#bbbbbb">
				 <center>
				 <input type=submit value=ַ>
                 </center>
           </td>
           </form>
    </tr>
</table>
<br>
<table border=1 width=100% bgcolor=#ffffff align="center" cellpadding="5" cellspacing="0" bordercolordark="#CCCCCC" bordercolorlight="#000000">
    <tr>
            <form name=formDel_year action=rfd_handle.asp method=post>
            <input type="hidden" name="isdel" value="ok">
            <td width=50%>
                    <input type=text size=4 name="delyear" onmouseup="alert('Ҫɾָǰ(̶̶̶ܹͷʾ)? ()  ɾ  ť  1990  ô1990ǰ¼¼ȫɾز');">
                    <input type=submit value=ɾ>
            </td>
            <td>
                    <input type=text size=4 name="delday" onmouseup="alert('Ҫɾָǰ(̶̶̶ܹͷʾ)? ()  ɾ  ť  365  ô365ǰ¼¼ȫɾز');">
                    <input type=submit value=ɾ>
            </td>
            </form>
    </tr>
</table>

</td>
</tr>
</table>
</CENTER>
</body>
</html>

<%
Call conn_Nothing()

function IndexListCount()
       dim SQL,RS,sss
       SQL = "SELECT indexshowlist FROM option1"
       Set RS = Server.CreateObject("ADODB.Recordset")
       RS.Open SQL, Conn
             IndexListCount = RS("indexshowlist")
       RS.close
       Set RS = Nothing
end function

function ListCount()
       dim SQL,RS,sss
       SQL = "SELECT showlist FROM option1"
       Set RS = Server.CreateObject("ADODB.Recordset")
       RS.Open SQL, Conn
             ListCount= RS("showlist")
       RS.close
       Set RS = Nothing
end function

function MYChr()
       dim SQL,RS,sss
       SQL = "SELECT SubjectFiltrate FROM option1 Order By id DESc"
       Set RS = Server.CreateObject("ADODB.Recordset")
       RS.Open SQL, Conn
             sss = RS("SubjectFiltrate")
       RS.close
       Set RS = Nothing
       MYChr = sss
end function

function MySI()
        dim rs,Sql                  
        Sql = "select SubmitInterval from option1"
        set rs=conn.execute(Sql)
              MySI=rs("SubmitInterval")
         rs.close
         set rs=nothing
end Function

Function UPSize()
    Dim rs,sql
	Sql = "select photoSize from option1"
    Set rs=conn.execute(Sql)
        UPSize=rs("photoSize")
    rs.close
    Set rs=Nothing
End Function 

Function chkYesNo()
    Dim rs,sql
	Sql = "select TempTopYes from option1"
    Set rs=conn.execute(Sql)
        chkYesNo=rs("TempTopYes")
    rs.close
    Set rs=Nothing
End Function 

Function TTCount()
    Dim rs,sql
	Sql = "select TempTopCount from option1"
    Set rs=conn.execute(Sql)
        TTCount=rs("TempTopCount")
    rs.close
    Set rs=Nothing
End Function 

%>